home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
dspice0s
/
nxtchr.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-11-21
|
3KB
|
117 lines
/* nxtchr.f -- translated by f2c (version of 3 February 1990 3:36:42).
You must link the resulting object file with the libraries:
-lF77 -lI77 -lm -lc (in that order)
*/
#include "f2c.h"
/* Common Block Declarations */
struct {
doublereal achar, afield[15], oldlin[15];
integer kntrc, kntlim;
} line_;
#define line_1 line_
/* Table of constant values */
static integer c__1 = 1;
/*< integer function nxtchr(int) >*/
integer nxtchr_(int_)
integer *int_;
{
/* Initialized data */
static struct {
char e_1[40];
doublereal e_2;
} equiv_5 = { {' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ',', ' ', ' ',
' ', ' ', ' ', ' ', ' ', '=', ' ', ' ', ' ', ' ', ' ', ' ',
' ', '(', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ')', ' ', ' ',
' ', ' ', ' ', ' ', ' '}, 0. };
#define adelim ((doublereal *)&equiv_5)
static struct {
char e_1[8];
doublereal e_2;
} equiv_6 = { {' ', ' ', ' ', ' ', ' ', ' ', ' ', ' '}, 0. };
#define ablnk (*(doublereal *)&equiv_6)
/* System generated locals */
integer ret_val;
/* Local variables */
extern /* Subroutine */ int move_();
static integer i;
/*< implicit double precision (a-h,o-z) >*/
/* this routine advances the current line scan pointer one column */
/* and checks whether or not the next character is a delimiter */
/* spice version 2g.6 sccsid=line 3/15/83 */
/*< common /line/ achar,afield(15),oldlin(15),kntrc,kntlim >*/
/*< dimension adelim(5) >*/
/*< data adelim / 1h , 1h,, 1h=, 1h(, 1h) / >*/
/*< data ablnk / 1h / >*/
/*< data ichar /0/ >*/
/* advance scan pointer (kntrc) */
/*< kntrc=kntrc+1 >*/
++line_1.kntrc;
/*< if (kntrc.gt.kntlim) go to 30 >*/
if (line_1.kntrc > line_1.kntlim) {
goto L30;
}
/*< call move(achar,1,afield,kntrc,1) >*/
move_(&line_1.achar, &c__1, line_1.afield, &line_1.kntrc, &c__1);
/*< 5 do 10 i=1,5 >*/
/* L5: */
for (i = 1; i <= 5; ++i) {
/*< if (achar.eq.adelim(i)) go to 20 >*/
if (line_1.achar == adelim[i - 1]) {
goto L20;
}
/*< 10 continue >*/
/* L10: */
}
/* non-delimiter */
/*< nxtchr=1 >*/
ret_val = 1;
/*< return >*/
return ret_val;
/* delimiter */
/*< 20 nxtchr=0 >*/
L20:
ret_val = 0;
/*< return >*/
return ret_val;
/* end-of-line */
/*< 30 nxtchr=-1 >*/
L30:
ret_val = -1;
/*< achar=ablnk >*/
line_1.achar = ablnk;
/*< return >*/
return ret_val;
/*< end >*/
} /* nxtchr_ */
#undef ablnk
#undef adelim